home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / testdemo.d64 / wedge.inst (.txt) < prev   
Commodore BASIC  |  2009-02-07  |  3KB  |  70 lines
  1. 1000 REM JFS - 8/31/84
  2. 1010 PRINTCHR$(14)"[147][215][197][204][195][207][205][197][160][212][207]:"
  3. 1020 PRINT"     [215][197][196][199][197]    "
  4. 1030 PRINT" [201][206][211][212][210][213][195][212][201][207][206][211] "
  5. 1040 PRINT"[194]Y [211]TEVE [199]AST"
  6. 1050 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  7. 1060 GETW$:IFW$=""THEN1060
  8. 1070 PRINT"[147] @ [146] OR  > "
  9. 1080 PRINT"[212]HIS COMMAND WILL READ THE ERROR"
  10. 1090 PRINT"CHANNEL AND INTIALIZE THE DISK DRIVE"
  11. 1100 PRINT" @[195][DRIVE #]:[NEWFILE]=[OLDFILE] "
  12. 1110 PRINT"[212]HIS COMMAND WILL MAKE A SECOND COPY OF"
  13. 1120 PRINT"A PROGRAM UNDER A DIFFERENT NAME [207][206] [212][200][197]"
  14. 1130 PRINT"[211][193][205][197] [196][201][211][203]. [198]OR EXAMPLE: @[195]0:[208][210][207][199][210][193][205]1="
  15. 1140 PRINT"[208][210][207][199][210][193][205]2 WILL MAKE A COPY OF [208][210][207][199][210][193][205]1"
  16. 1150 PRINT"CALLED [208][210][207][199][210][193][205]2 ON THE SAME DISK."
  17. 1160 PRINT" @[201][DRIVE #] "
  18. 1170 PRINT"[212]HIS COMMAND WILL INITIALIZE THE DISK"
  19. 1180 PRINT"DRIVE. [206]OTE: YOU CAN INITIALIZE A DRIVE"
  20. 1190 PRINT"OTHER THAN 0 (THE DEFAULT DRIVE #) BY"
  21. 1200 PRINT"ADDING THE DRIVE # AFTER THE LETTER [201]."
  22. 1210 PRINT"[197]XAMPLE: @[201]1.
  23. 1220 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL"
  24. 1230 [161]W$:[139]W$[178]""[167]1230
  25. 1240 [153]"LOAD @(null)0:[DISKNAME],[ID] "
  26. 1250 [153]"(null)HIS COMMAND WILL FORMAT A DISK WHERE"
  27. 1260 [153]"[DISKNAME] IS A USER ASSIGNED NAME FOR"
  28. 1270 [153]"THE DISK AND [ID] IS A 2 CHARACTER"
  29. 1280 [153]"DISKETTE RIGHT$STR$ CODE OF YOUR CHOICE."
  30. 1290 [153]" @(null) "
  31. 1300 [153]"(null)HIS COMMAND WILL KILL THE LEN-64 WEDGE."
  32. 1310 [153]" @(null)0:[NEWFILE]=[OLDFILE] "
  33. 1320 [153]"(null)HIS COMMAND ALLOWS A PROGRAM OR FILE"
  34. 1330 [153]"UNDER AN EXISTING NAME(OLDFILE) TO BE"
  35. 1340 [153]"RENAMED(NEWFILE) ON THE DISK DIRECTORY."
  36. 1350 [153]" @S0:[FILENAME] "
  37. 1360 [153]"(null)HIS COMMAND ALLOWS A PROGRAM OR FILE"
  38. 1370 [153]"TO BE SCRATCHED FROM THE DISK DIRECTORY."
  39. 1380 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL"
  40. 1390 [161]W$:[139]W$[178]""[167]1390
  41. 1400 [153]"LOAD @(null)MID$ "
  42. 1410 [153]"(null)HIS COMMAND WILL RESET THE STR$ISK"
  43. 1420 [153]"(null)PERATING (null)YSTEM (STR$(null)(null))."
  44. 1430 [153]" @$ "
  45. 1440 [153]"(null)HIS COMMAND WILL DISPLAY THE DIRECTORY"
  46. 1450 [153]"(null)RIGHT$(null)LEFT$(null)(null)(null) ATNASCASCVALLEN(null)RIGHT$(null)CHR$ ATN (null)(null)(null)CHR$(null)ATN(null) RIGHT$(null) (null)VAL(null)(null)(null)(null)."
  47. 1460 [153]" @#[DEVICE #] "
  48. 1470 [153]"(null)HIS 64-ONLY COMMAND WILL SEND ALL STR$(null)(null)"
  49. 1480 [153]"COMMANDS TO A SELECTED DISK UNIT (8-15)."
  50. 1490 [153]" /[FILENAME] "
  51. 1500 [153]"(null)HIS COMMAND WILL LOAD A PEEKATN(null)RIGHT$LEN PROGRAM"
  52. 1510 [153]"(FILENAME IN THE ABOVE EXAMPLE)."
  53. 1520 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL"
  54. 1530 [161]W$:[139]W$[178]""[167]1530
  55. 1540 [153]"LOAD %[FILENAME] "
  56. 1550 [153]"(null)HIS 64-ONLY COMMAND WILL LOAD PROGRAMS"
  57. 1560 [153]"TO THE ORIGINAL ADDRESS (I.E. A MACHINE"
  58. 1570 [153]"LANGUAGE PROGRAM). RIGHT$N THE ABOVE EXAMPLE"
  59. 1580 [153]"FILENAME REFERS TO THE PROGRAM'S NAME"
  60. 1590 [153]"AS IT APPEARS IN THE DIRECTORY."
  61. 1600 [153]" ^[FILENAME] "
  62. 1610 [153]"(null)HIS COMMAND WILL LOAD AND RUN A PEEKATN(null)RIGHT$LEN"
  63. 1620 [153]"PROGRAM (FILENAME IN THE ABOVE EXAMPLE)"
  64. 1630 [153]" _[FILENAME] "
  65. 1640 [153]"(null)HIS 64-ONLY COMMAND WILL SAVE A PEEKATN(null)RIGHT$LEN"
  66. 1650 [153]"PROGRAM."
  67. 1660 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL"
  68. 1670 [161]W$:[139]W$[178]""[167]1670
  69. 1680 [138]
  70.